home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slasrt.z / slasrt
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAASSSSRRRRTTTT((((3333FFFF))))                                                          SSSSLLLLAAAASSSSRRRRTTTT((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLASRT - the numbers in D in increasing order (if ID = 'I') or in
  10.      decreasing order (if ID = 'D' )
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE SLASRT( ID, N, D, INFO )
  14.  
  15.          CHARACTER      ID
  16.  
  17.          INTEGER        INFO, N
  18.  
  19.          REAL           D( * )
  20.  
  21. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  22.      Sort the numbers in D in increasing order (if ID = 'I') or in decreasing
  23.      order (if ID = 'D' ).
  24.  
  25.      Use Quick Sort, reverting to Insertion sort on arrays of
  26.      size <= 20. Dimension of STACK limits N to about 2**32.
  27.  
  28.  
  29. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  30.      ID      (input) CHARACTER*1
  31.              = 'I': sort D in increasing order;
  32.              = 'D': sort D in decreasing order.
  33.  
  34.      N       (input) INTEGER
  35.              The length of the array D.
  36.  
  37.      D       (input/output) REAL array, dimension (N)
  38.              On entry, the array to be sorted.  On exit, D has been sorted
  39.              into increasing order (D(1) <= ... <= D(N) ) or into decreasing
  40.              order (D(1) >= ... >= D(N) ), depending on ID.
  41.  
  42.      INFO    (output) INTEGER
  43.              = 0:  successful exit
  44.              < 0:  if INFO = -i, the i-th argument had an illegal value
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.